home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / SRS.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  27 lines
  1. 10 POKE56,32:CLR:PRINT"[147]*** SELF-RUNNING SLIDESHOW MAKER ***":OPEN15,8,15
  2. 20 PRINT"CHOOSE ONE:":PRINT"C. CREATE A SLIDESHOW"
  3. 30 PRINT"E. EXTEND A SLIDESHOW":PRINT"D. DISK DIRECTORY":PRINT"Q. QUIT":PRINT
  4. 40 GETA$:IFA$=""THEN40
  5. 50 IFA$="C"THEN100
  6. 60 IFA$="E"THEN200
  7. 70 IFA$="D"THENSYS3176:GOTO20
  8. 80 IFA$="Q"THENEND
  9. 90 GOTO40
  10. 100 PRINT"INSERT DISK ON WHICH TO CREATE":PRINT"SLIDESHOW."
  11. 110 INPUT"FILENAME FOR SLIDESHOW";SS$:IFSS$=""THEN110
  12. 115 IFLEN(SS$)>12THENSS$=LEFT$(SS$,12)
  13. 120 IFRIGHT$(SS$,4)<>".SRS"THENSS$=SS$+".SRS"
  14. 130 PRINT"CREATING SLIDESHOW STARTUP FILE...";:OPEN1,8,1,SS$:SYS3320:CLOSE1
  15. 140 INPUT#15,E,E$,E1,E2:IFE<>0THENPRINT:PRINT"DISK ERROR[146]: "E$;E1;E2:GOTO20
  16. 150 PRINT"DONE.":PRINT"CREATED FILE "CHR$(34)SS$CHR$(34):GOTO20
  17. 200 PRINT"INSERT DISK ON WHICH JJ/GG PICTURE":PRINT"IS STORED."
  18. 210 INPUT"FILENAME OF PICTURE";P$:A$=LEFT$(P$,2)
  19. 220 IFA$<>"GG"ANDA$<>"JJ"THENPRINT"MUST BE JJ OR GG!":GOTO210
  20. 230 PRINT"LOADING PICTURE FILE...";:OPEN1,8,0,P$:SYS3747:CLOSE1
  21. 240 INPUT#15,E,E$,E1,E2:IFE<>0THENPRINT:PRINT"DISK ERROR[146]: "E$;E1;E2:GOTO20
  22. 250 PRINT"DONE.":PRINT"INSERT DISK CONTAINING":PRINT"SLIDESHOW TO BE EXTENDED."
  23. 260 PRINTTAB(23)SS$"[145]":INPUT"FILENAME OF SLIDESHOW";SS$:IFSS$=""THEN260
  24. 270 PRINT:PRINT"APPENDING TO SLIDESHOW...";:OPEN1,8,2,SS$+",P,A":SYS3780:CLOSE1
  25. 280 INPUT#15,E,E$,E1,E2:IFE<>0THENPRINT:PRINT"DISK ERROR[146]: "E$;E1;E2:GOTO20
  26. 290 PRINT"DONE.":GOTO20
  27.